<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>8826</cardID>
<listID>4546</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>function delReturns theTextrepeat until last char of theText is not RETURNdelete last char of theTextend repeatreturn theTextend delReturns----ﾃ①ﾃ`ﾃﾃ嘉ﾃｮﾃﾃ｢ﾃﾃｨﾃﾃｩﾃ①ﾃhﾃﾃｮﾃﾃ姪ﾃｧ--on dealAction KYOUgo cd KYOUput delReturns(fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉") into ACITEMif ACITEM is not "" then put return after ACITEMput delReturns(fld "ﾃｨdﾃｳvﾃｬx") into JuyoDogo first cd of bg "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣"repeat while fld "ﾃｬﾋ凖ｯt"<>KYOUput the number of lines of fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉" into Nrepeat with i = 1 to Nput line i of fld "ﾃ荏ﾃ宇ﾃ叡ﾃ丑" into chkboxif char 1 of chkbox is "ﾃｧﾅ" then next repeatput line i of fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉" into crtIctItmput delReturns(crtIctItm) into crtIctItmif (crtIctItm = "") or (crtIctItm = " ") or (crtIctItm = "ﾃ①") then next repeatput char 1 of crtIctItm into HAJIMENOMOJIif (HAJIMENOMOJI = " ") or (HAJIMENOMOJI = "ﾃ①") then next repeatput crtIctItm & return after ACITEMput number of lines of ACITEM into BASHOput line i of fld "ﾃｨdﾃｳvﾃｬx" into juyoput juyo into line BASHO of JuyoDoput " " into line i of fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉"put " " into line i of fld "ﾃｨdﾃｳvﾃｬx"end repeatput "" into fld id 51go to next cdend repeatgo cd KYOUput ACITEM into fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉"put JuyoDo into fld "ﾃｨdﾃｳvﾃｬx"end dealActionon dspActionput the number of lines of fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ韻ﾃ影ﾃ嘉" into Nif N = 0thenput "" into fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ"exit dspActionend ifput 0 into sumiNumrepeat with i = 1 to Nput line i of fld id 40 into sumiif (char 1 of sumi = "ﾃｧﾅ") then put sumiNum+1 into sumiNumend repeatput N - sumiNum into Nif N = 0then put "" into fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ"else put "ﾃｧﾂｰﾃｬﾋ凖ﾃサo Do ﾃ陰ﾃ韻ﾃ影ﾃ嘉ﾃﾃ" && N && "ﾃｧﾃﾃｱ竅ﾃ竕暗竏" into fld "ﾃ陰ﾃ丑ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ"end dspActionon suspendStackdelmend suspendStackon resumeStackcremend resumeStackon openStackglobal NameCardglobal konoCardgo cd "ﾃ迂ﾃ [ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥"put the date into KYOUconvert KYOU to dateItemsput KYOU into fld "ﾃ｣Nﾃｬﾃﾃｬﾋ"put item 1 of KYOU into NENput item 2 of KYOU into TUKIput item 3 of KYOU into HIput item 7 of KYOU into YOBIlock screenset cursor to watch--ﾃ①ﾃｧﾂｰﾃｬﾋ凖ﾃεｬﾋ凖ｯtﾃﾃε厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ雨ﾃ [ﾃ栄ﾃ邃｢ﾃ窶 ﾃﾃ暗ﾂｩﾃ⑨go cd KYOU--ﾃ①ﾃ窶 ﾃﾂ｡ﾃﾎｩﾃﾃﾃﾂｪﾃﾂｱﾃ窶ｦﾃｮﾃ堙窶氾②ﾃﾂｻﾃﾂｩﾃﾂ｡ﾃﾎｩﾃﾃﾃｧﾃ湘ﾃ暗③ﾃﾂｪﾃﾂｵﾃﾆ津ｧﾂｰﾃｬﾋ凖窶ｦﾃ 竅ﾃｬﾃﾃ竏妥ﾃ暗③if the result is not emptythengo last cd of bg "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣"put KYOU into NameCarddoMenu "New Card"end ifgo cd KYOU--ﾃ①ﾃｧﾂｰﾃｬﾋ凖ﾃεｬﾋ凖ｯtﾃï｣ｿﾃｨﾃｫﾃ竕 put date() into fld "ﾃｧﾂｰﾃｬﾋ凖ﾃεｬﾋ凖ｯt"-- To Do ﾃ陰ﾃ韻ﾃ影ﾃ嘉ﾃﾃεｨﾃ ﾃｳﾃｹﾃ竏ﾃｯ¥ﾃｩﾂｶdealAction KYOUdspAction-- ﾃ韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃｳïｬﾃﾃεｨﾃ ﾃｳﾃｹput "" into fld id 59dspAnualEv NEN,TUKI,HIdspMonthEv NEN,TUKI,HIdspWeekEv YOBIdspOneTimeEv NEN,TUKI,HIdspSpecialEv NEN,TUKI,HI-- ﾃ右ﾃ韻ﾃ [ﾃ丑ﾃ嘉､ﾃ [ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃï｣ｿﾃ瓜ﾃ叡ﾃ曳ﾃ竏妥ﾃalermSet YOBIgo cd KYOUput number of lines of delReturns(fld "ﾃ｢ﾎｩﾃﾃεｬﾋ" ) into Aif A >= 14thenset the style of fld "ﾃ｢ﾎｩﾃﾃεｬﾋ" to scrollingelseset the style of fld "ﾃ｢ﾎｩﾃﾃεｬﾋ" to shadowend if--ﾃ①ﾃ嘉 ﾃ泳ﾃ嘉姪 [ﾃï｣ｿﾃｭﾂｫﾃ｢ﾂ｡ﾃ竏妥ﾃcremunlock screen with visual effect dissolveput short name of this card into konoCardend openStackon closeStackset cursor to busygo cd "ﾃ迂ﾃ [ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥"lock screendoMenu "Compact Stack"delmend closeStackon goBackTodayput fld "ﾃ｣Nﾃｬﾃﾃｬﾋ" of cd "ﾃ迂ﾃ [ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥" into CDNAMEgo cd CDNAMEend goBackToday----ﾃ①ﾃ㈻ﾃﾂｬﾃﾃεｬﾋ凖ｯtﾃﾃεｬﾋ凖ｪﾃｮﾃﾃεｧ竏妥ï｣ｿﾃ｣ﾃ ﾃïｬづﾃ--function getDuration Y1,M1,D1,Y2,M2,D2put "0,0,0,0,0,0,0" into HAJIMEput "0,0,0,0,0,0,0" into OWARIput Y1 into item 1 of HAJIMEput M1 into item 2 of HAJIMEput D1 into item 3 of HAJIMEconvert HAJIME to secondsput Y2 into item 1 of OWARIput M2 into item 2 of OWARIput D2 into item 3 of OWARIconvert OWARI to secondsput (OWARI - HAJIME)/3600/24 into durreturn durend getDurationfunction getNextMonth Y,Mif M = 12thenput 1 into Mput Y+1 into Yelseput M+1 into Mend ifput "0,0" into bufput Y into item 1 of bufput M into item 2 of bufreturn bufend getNextMonth----ﾃ①ﾃdﾃﾃｱﾃﾃ姪ﾃｩﾃﾃｮ--on dspAnualEv NEN,TUKI,HIif (TUKI =1) or (TUKI =2) or (TUKI =3) or (TUKI =4) then go cd "anu1"if (TUKI =5) or (TUKI =6) or (TUKI =7) or (TUKI =8) then go cd "anu2"if (TUKI =9) or (TUKI =10) or (TUKI =11) or (TUKI =12) then go cd "anu3"put TUKI mod 4 into AMARIif AMARI = 1thenput cd fld id 5 into SONOHIput cd fld id 1 into YOTEIput cd fld id 9 into YOKOKUend ifif AMARI = 2thenput cd fld id 7 into SONOHIput cd fld id 3 into YOTEIput cd fld id 11 into YOKOKUend ifif AMARI = 3thenput cd fld id 6 into SONOHIput cd fld id 2 into YOTEIput cd fld id 10 into YOKOKUend ifif AMARI = 4thenput cd fld id 8 into SONOHIput cd fld id 4 into YOTEIput cd fld id 12 into YOKOKUend ifput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKANif KIKAN < 0 then next repeat -- ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃif KIKAN = 0 -- ﾃｧﾂｰﾃｬﾋthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANnext repeatend ifend repeatput getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2if (T2 =1) or (T2 =2) or (T2 =3) or (T2 =4) then go cd "anu1"if (T2 =5) or (T2 =6) or (T2 =7) or (T2 =8) then go cd "anu2"if (T2 =9) or (T2 =10) or (T2 =11) or (T2 =12) then go cd "anu3"put T2 mod 4 into AMARIif AMARI = 1thenput cd fld id 5 into SONOHIput cd fld id 1 into YOTEIput cd fld id 9 into YOKOKUend ifif AMARI = 2thenput cd fld id 7 into SONOHIput cd fld id 3 into YOTEIput cd fld id 11 into YOKOKUend ifif AMARI = 3thenput cd fld id 6 into SONOHIput cd fld id 2 into YOTEIput cd fld id 10 into YOKOKUend ifif AMARI = 4thenput cd fld id 8 into SONOHIput cd fld id 4 into YOTEIput cd fld id 12 into YOKOKUend ifput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,N2,T2,D1) into KIKANif KIKAN < 0 then next repeat -- ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃif KIKAN <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANnext repeatend ifend repeatend dspAnualEvon dspMonthEv NEN,TUKI,HIgo cd "Monthly"put getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2put cd fld id 2 into SONOHIput cd fld id 1 into YOTEIput cd fld id 3 into YOKOKUput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKAN --ﾃ･ﾃｩﾃï｣ｿﾃ窶ｹﾃﾎｩﾃ邃｢ﾃﾂｻﾃﾂ｢ﾃｩﾃｻif KIKAN < 0 then next repeat -- ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃput getDuration(NEN,TUKI,HI,N2,T2,D1) into KIKAN2 --ﾃ･ﾃｩﾃï｣ｿﾃ窶ｹﾃﾎｩﾃﾂ｢ﾃﾃｦﾃｩﾃｻif KIKAN2 < 0 then next repeat -- ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃif KIKAN = 0 -- ﾃｧﾂｰﾃｬﾋthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN2 <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKAN2end ifif KIKAN <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspMonthEvon dspWeekEv YOBIgo cd "Weekly"put cd fld YOBI into EVEput number of lines of EVE into Nrepeat with i = 1 to Nput line i of EVE into EVENTif EVENT = "" then next repeatnoticeEventZero EVENTend repeatend dspWeekEvon dspOneTimeEv NEN,TUKI,HIgo cd "One Time Rem"put cd fld id 1 into SONOTUKIput cd fld id 2 into SONOHIput cd fld id 3 into YOTEIput cd fld id 5 into YOKOKUput cd fld id 10 into SONOTOSIput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOTUKI into M1put line i of SONOHI into D1if (M1 = "") or (D1 = "") then next repeatput line i of SONOTOSI into Y1if (Y1 <> "") and (Y1 <> NEN) then next repeatput line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,M1,D1) into KIKANif KIKAN < 0 then next repeat -- ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃif KIKAN = 0 -- ﾃｧﾂｰﾃｬﾋthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspOneTimeEvon dspSpecialEv NEN,TUKI,HIgo cd "ﾃｬﾂ｡ﾃｩﾃ催嘉､ﾃ厭ﾃ韻ﾃ嘉ｬﾃ雲ﾃ ["send mouseUp to cd btn "ﾃｬﾋ凖ｯtﾃï｣ｿﾃ･vﾃｩZ"put getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2put cd fld id 12 into SONOHIput cd fld id 14 into SONOHI2put cd fld id 3 into YOTEIput cd fld id 5 into YOKOKUput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of SONOHI2 into D2put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKANif KIKAN < 0 then next repeatput getDuration(NEN,TUKI,HI,N2,T2,D2) into KIKAN2if KIKAN2 < 0 then next repeatif KIKAN = 0 -- ﾃｧﾂｰﾃｬﾋthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN2 <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKAN2end ifif KIKAN <= YK -- ﾃｳ¥ﾃｧﾃｪﾃ､ﾋ凖､窶佚ｬ窶｡thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspSpecialEv-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ---- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --function dayTodate YEAR,MONTH,DAINAN,YOBIput "0,0,1,0,0,0,0" into daybufput YEAR into item 1 of daybufput MONTH into item 2 of daybufconvert daybuf to dateItemsput item 7 of daybuf into yobi1if YOBI >= yobi1thenput YOBI - yobi1 + 1 into AMARIelseput YOBI - yobi1 + 8 into AMARIend ifput (DAINAN -1)* 7 + AMARI into SONOHIreturn SONOHIend dayTodateon goTotheday hidukeglobal NameCardput item 1 of hiduke into yearput item 2 of hiduke into monthput item 3 of hiduke into dayput "0,0,0,0,0,0,0" into NameCardput year into item 1 of NameCardput month into item 2 of NameCardput day into item 3 of NameCardconvert NameCard to dateItemsgo cd NameCardif the result is not emptythengo first cd of bg "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣"doMenu "New Card"end ifgo cd NameCardend goTothedayon alermSet YOBIgo cd "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃｩﾂｩﾃｬﾃﾃｪ窶ｺﾃｭﾃ"put number of lines of delReturns(cd fld"ﾃｬ窶｡ﾃｳe") into nrepeat with i = 1 to nput line i of cd fld "ﾃｳjﾃｬﾋ" into eventYobiput yobiToNumber(eventYobi) into eventYobiif eventYobi = YOBIthenput line i of cd fld "ﾃｬ窶｡ﾃｳe" into NAIYOUput line i of cd fld "ﾃ｢ﾎｩﾃｩﾃｻ" into NANJIput line i of cd fld "ﾃ｢ﾎｩﾃｯ邃｢" into NANPUNgoBackTodayput number of lines of delReturns(fld"ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥") into mput NAIYOU into line m+1 of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥"put NANJI into line m+1 of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃｩﾃｻ"put NANPUN into line m+1 of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃｯ邃｢"go backend ifend repeatend alermSet----ﾃ①ﾃｧﾂｰﾃｬﾋ凖邃｢ﾃ韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃｬﾋ凖ﾃｦﾃﾂ｡ﾃﾎｩﾃﾃﾃｨﾃｫﾃ竕 --on noticeEventZero EVENTgoBackTodayput "ﾃｧﾂｰﾃｬﾋ凖ﾃ" && EVENT && "ﾃ竕暗竏" after fld id 59put return after fld id 59go backend noticeEventZero----ﾃ①ﾃｧﾂｰﾃｬﾋ凖邃｢ﾃ韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃｳ¥ﾃｧﾃｪﾃｬﾋ凖ﾃｦﾃﾂ｡ﾃﾎｩﾃﾃﾃｨﾃｫﾃ竕 --on noticeEventPrev EVENT,DURAgoBackTodayif DURA = 1thenput EVENT && "ﾃﾃ陛ｱﾃｦﾃｬﾋ凖竕暗竏" after fld id 59elseif DURA = 2thenput EVENT && "ﾃﾃ陛窶 ﾃ竕･ﾃﾂ｡ﾃﾆ津竕暗竏" after fld id 59elseput EVENT && "ﾃ窶ｹﾃ竕" && DURA && "ﾃｬﾋ凖竕暗竏" after fld id 59end ifend ifput return after fld id 59go backend noticeEventPrevon putDayToDate NEN,TUKIif TUKI = 12thenput 1 into nextTUKIput NEN + 1 into nextNENelseput TUKI +1 into nextTUKIput NEN into nextNENend ifput nextTUKI into fld "ﾃｳﾃ ﾃ･ﾃｩ"put nextNEN into fld "ﾃｳﾃ ﾃｮN"-- put the number of lines of cd fld "ﾃｬ窶｡ﾃｳe" into eventLinerepeat with i = 1 to 16put line i of cd fld "ﾃｫﾃ甘｢ﾎｩ" into eventDaiput line i of cd fld "ﾃｳjﾃｬﾋ" into eventYobiif eventDai = ""thenput "" into line i of cd fld "ﾃｧﾂｰﾃ･ﾃｩﾃﾃεｬﾋ"put "" into line i of cd fld "ﾃｳﾃ ﾃ･ﾃｩﾃﾃεｬﾋ"next repeatend ifif eventYobi = ""thenput "" into line i of cd fld "ﾃｧﾂｰﾃ･ﾃｩﾃﾃεｬﾋ"put "" into line i of cd fld "ﾃｳﾃ ﾃ･ﾃｩﾃﾃεｬﾋ"next repeatend ifput yobiToNumber(eventYobi) into eventYobiput dayTodate(NEN,TUKI,eventDai,eventYobi) into line i of cd fld "ﾃｧﾂｰﾃ･ﾃｩﾃﾃεｬﾋ"put dayTodate(nextNEN,nextTUKI,eventDai,eventYobi) into line i of cd fld "ﾃｳﾃ ﾃ･ﾃｩﾃﾃεｬﾋ"end repeatend putDayToDatefunction yobiToNumber YOBIif YOBI = "ﾃｬﾋ"thenput 1 into YOBIelseif YOBI = "ﾃ･ﾃｩ"thenput 2 into YOBIelseif YOBI = "ﾃ｢ﾅ"thenput 3 into YOBIelseif YOBI = "ﾃｪﾃ"thenput 4 into YOBIelseif YOBI = "ﾃｱﾃｿ"thenput 5 into YOBIelseif YOBI = "ﾃ｣窶｡"thenput 6 into YOBIelseput 7 into YOBIend ifend ifend ifend ifend ifend ifreturn YOBIend yobiToNumberon cremcreate menu "ﾃｿﾅ凪王窶ｺﾂｿïｬ」1.0"put "One Time,Weekly,Monthly,Annually,ﾃｬﾂ｡ﾃｩﾃ" into menu "ﾃｿﾅ凪王窶ｺﾂｿïｬ」1.0"ﾂｬwith menuMsg "go to cd id 5242,go to cd id 9333,go to cd id 9903,go to cd id 11383,go to cd id 18647"end cremon delmdelete menu "ﾃｿﾅ凪王窶ｺﾂｿïｬ」1.0"end delmon idleglobal konoCardput fld "ﾃ｣Nﾃｬﾃﾃｬﾋ" of cd "ﾃ迂ﾃ [ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥" into CDNAMEput fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃｩﾃｻ" of cd CDNAME into ALMHOURput fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃｯ邃｢" of cd CDNAME into ALMMINUTput fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ厩ﾃ影ﾃ [ﾃ運ﾃ厩" of cd CDNAME into ALMASTSput fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥" of cd CDNAME into ALMMSGput number of lines of ALMHOUR into nget timeNow()put item 1 of it into hourNowput item 2 of it into minNowrepeat with i = 1 to n-- ﾃｧﾅ禿ﾃ津ﾃｦﾃﾃεﾃ陛ｱ竕･ﾃｨï｣ｿﾃ･ﾃｨﾃ窶ｦﾃ竏ﾃﾅ津竏if line i of ALMASTS = "ﾃｧﾅ" then next repeat-- ﾃｩﾃｻﾃ､窶佚邃｢ﾃ窶ｹﾃﾃｦﾃﾂｻﾃﾃεﾃ陛ｱ竕･ﾃｨï｣ｿﾃ･ﾃｨﾃ窶ｦﾃ竏ﾃﾅ津竏if line i of ALMHOUR > hourNow then next repeatput line i of ALMMSG into ALERTMESput line i of ALMHOUR into ALERTHOURput line i of ALMMINUT into ALERTMIN-- ﾃｩﾃｻﾃ､窶佚邃｢ﾃ｢ïｬづﾂｨﾃﾎｩﾃ窶｡ﾃﾃif line i of ALMHOUR < hourNowthenif ALERTMIN = empty then next repeatput ALERTHOUR & ":" & ALERTMIN & " ﾃｳ¥ﾃｭﾃ凝ﾃ" & ALERTMES &" ﾃ邃｢ﾃ｢ïｬづﾂｨﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏" into ALERTMESanswer ALERTMESput "ﾃｧﾅ" into line i of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ厩ﾃ影ﾃ [ﾃ運ﾃ厩" of cd CDNAMEnext repeatend if-- ﾃｩﾃｻﾃ､窶佚邃｢ﾃｬﾃ佚竏づ窶｡ﾃﾃif ALERTMIN < minNowthenif ALERTMIN = empty then next repeatput ALERTHOUR & ":" & ALERTMIN & " ﾃｳ¥ﾃｭﾃ凝ﾃ" & ALERTMES &" ﾃ邃｢ﾃ｢ïｬづﾂｨﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏" into ALERTMESanswer ALERTMESput "ﾃｧﾅ" into line i of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ厩ﾃ影ﾃ [ﾃ運ﾃ厩" of cd CDNAMEnext repeatend if-- ﾃｩﾃｻﾃｧﾃｨﾃ邃｢ﾃｬﾃ佚竏づ窶｡ﾃﾃif ALERTMIN = minNowthenput ALERTMES &" ﾃﾃεｩﾃｻﾃ､窶佚竕暗竏" into ALERTMESput ALERTHOUR & ":" & ALERTMIN & "ﾃ①ﾃ①" before ALERTMESopen the long name of HyperCardplay Boinganswer ALERTMESput "ﾃｧﾅ" into line i of fld "ﾃ陰ﾃ嘉｢ﾃ [ﾃ嘉ﾃ厩ﾃ影ﾃ [ﾃ運ﾃ厩" of cd CDNAMEend ifend repeat-- ﾃ運ﾃ韻ﾃ厭ﾃ [if the hilight of bg btn "TimerOn" of cd konoCard is false then exit idleput fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃ厩ﾃ運ﾃ [ﾃ曳" of cd konoCard into NARASUif NARASU = "" then exit idleput the seconds into IMAput NARASU - IMA into JIKANSAput JIKANSA div 60 into FUNput JIKANSA mod 60 into BYOif FUN = 0 thenput "" into fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯ邃｢" of cd konoCardelseput FUN into fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯ邃｢" of cd konoCardend ifput BYO into fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯb" of cd konoCardif (FUN = 0) and (BYO = 0)thenput "" into fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃ厩ﾃ運ﾃ [ﾃ曳" of cd konoCardput "" into fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯb" of cd konoCardhide fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯ邃｢" of cd konoCardhide fld "ﾃ運ﾃ韻ﾃ厭ﾃ [ﾃｯb" of cd konoCardhide bg btn "TimerOn" of cd konoCardopen the long name of HyperCardplay Boinganswer "ﾃｩﾃｻﾃ､窶佚竕暗竏"end ifend idlefunction timeNowput the short time into ALMTIMEconvert ALMTIME to secondsput date() into KYOUconvert KYOU to secondsput ALMTIME - KYOU into ALMTIMEput ALMTIME / 60 into FUNput FUN div 60 into JIKANput FUN mod 60 into FUNreturn JIKAN & "," & FUNend timeNow</script>
